     
 
              :
   :  1  Integer    2   TEXT   6     3      (       )

        
1 -   CnFTD :         Global CnFTD As ADODB.Connection 
2-   Rs1 :       Global Rs1 As New ADODB.Recordset
                DATABASE  

                  ADODB 

           :
   Dim dbsNorthwind As Database
   Dim tdfNew As TableDef
   Dim prpLoop As Property

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")

   ' Create a new TableDef object.
   Set tdfNew = dbsNorthwind.CreateTableDef("Contacts")

   With tdfNew
      ' Create fields and append them to the new TableDef
      ' object. This must be done before appending the
      ' TableDef object to the TableDefs collection of the
      ' Northwind database.
      .Fields.Append .CreateField("FirstName", dbText)
      .Fields.Append .CreateField("LastName", dbText)
      .Fields.Append .CreateField("Phone", dbText)
      .Fields.Append .CreateField("Notes", dbMemo)
      ' Append the new TableDef object to the Northwind
      ' database.
      dbsNorthwind.TableDefs.Append tdfNew
   End With
   dbsNorthwind.Close

           Database   ( Dim dbsNorthwind As Database )
